From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 11 Sep 1994 08:36:36 +0000 (+0000)
Subject: (vc-do-command): Temporarily add vc-path to the end of PATH.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~90337
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=eadcb02c5339e7c33b0872911a418bf3ce8daac4;p=emacs.git

(vc-do-command): Temporarily add vc-path to the end of PATH.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 06f49bfe641..11602b8d502 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -218,7 +218,12 @@ the master name of FILE; this is appended to an optional list of FLAGS."
     (if vc-file
 	(setq squeezed (append squeezed (list vc-file))))
     (let ((default-directory (file-name-directory (or file "./")))
-	  (exec-path (if vc-path (append exec-path vc-path) exec-path)))
+	  (exec-path (if vc-path (append exec-path vc-path) exec-path))
+	  ;; Add vc-path to PATH for the execution of this command.
+	  (process-environment
+	   (cons (concat "PATH=" (getenv "PATH")
+			 ":" (mapconcat 'identity vc-path ":"))
+		 process-environment)))
       (setq status (apply 'call-process command nil t nil squeezed)))
     (goto-char (point-max))
     (forward-line -1)